home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 172 / 172.d81 / b.ls album (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  220 lines
  1. 10 poke56,39:clr:poke53371,0:poke788,49:tq=ti
  2. 12 i=rnd(-ti)
  3. 20 poke53281,0:poke53280,0
  4. 30 dv=peek(186):ifdv<8thendv=8
  5. 32 print"[147]":gosub60000
  6. 34 dimg$(13),fg$(13),bd%(13),x1(13),x2(13),y1(13),y2(13)
  7. 40 sys57812"album unpacker",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  8. 50 sys57812"album.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  9. 60 ifti<tq+100then60
  10. 62 print"[159][147]":tq=ti
  11. 64 poke53272,27
  12. 70 poke251,64:poke252,96:poke253,92:sys51456:sys51459:poke53280,5
  13. 80 sys57812"mouse jr c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  14. 90 sys57812"printer9000",dv,0:poke780,0:poke781,0:poke782,144:sys65493
  15. 100 sys57812"album font",dv,0:poke780,0:poke781,0:poke782,40:sys65493
  16. 110 ifti<tq+100then110
  17. 112 c=54272:s=1024:ky$="[145][157]123456"
  18. 114 poke53281,0:sys51459:poke53280,0
  19. 116 poke53272,27
  20. 118 ml=192*256:mv=ml+156:pokemv+1,158:v=53248
  21. 120 sysml:sysml+18,0,38,0,24
  22. 122 pokemv+19,128:sysml+6,10176:pokev+21,0
  23. 124 pokev+39,15:pokev+40,11
  24. 126 goto180
  25. 140 ifi%=1theny=y-1:ify<0theny=0
  26. 142 ifi%=2theny=y+1:ify>24theny=24
  27. 144 ifi%=3thenx=x-1:ifx<0thenx=0
  28. 146 ifi%=4thenx=x+1:ifx>39thenx=39
  29. 148 return
  30. 180 fori=0to7:readd:pokemv+11+i,d:next
  31. 190 data99,100,101,103,108,123,124,126
  32. 200 fori=1to10:bd%=0
  33. 202 readg$(i),fg$(i)
  34. 210 x1(i)=1-20*(i>5):x2(i)=x1(i)+17
  35. 220 y1(i)=i*3+15*(i>5):y2(i)=y1(i)+2
  36. 230 sysml+15,i,x1(i),x2(i),y1(i),y2(i)
  37. 232 next
  38. 340 data"[204][207][193][196][211][212][193][210]s 25-33","ls 25-33.shp"
  39. 342 data"[204][207][193][196][211][212][193][210]s 34-41","ls 34-41.shp"
  40. 343 data"[204][207][193][196][211][212][193][210] 42","ls 42.shp"
  41. 344 data"[204][207][193][196][211][212][193][210]s 43-57","ls 43-57.shp"
  42. 345 data"[204][207][193][196][211][212][193][210] [205]enu 1","ls 26 menu.shp"
  43. 346 data"[204][207][193][196][211][212][193][210] [205]enu 2","ls 36 menu.shp"
  44. 347 data"[204][207][193][196][211][212][193][210] [205]enu 3","ls 45 menu.shp"
  45. 348 data"[204][207][193][196][211][212][193][210] 58","pic 58.shp"
  46. 349 data"[204][207][193][196][211][212][193][210] 59","pic 59.shp"
  47. 350 data"[204][207][193][196][211][212][193][210] 60","pic 60.shp"
  48. 360 fori=0to2:reade$(i),m1(i),m2(i),m3(i),m4(i),e1$(i)
  49. 362 sysml+15,11+i,m1(i),m2(i),m3(i),m4(i)
  50. 364 next
  51. 370 data"[157][217][197][193][210][211] 3-5",2,12,21,23," 7-[208][201][206]"
  52. 380 data" [200][197][204][208] ",16,25,21,23," 8-[208][201][206]"
  53. 390 data" [209][213][201][212]",29,37,21,23," [194][193][195][203]"
  54. 410 sysml+30,0,39,0,24,0,8
  55. 420 poke53281,0:poke53280,0
  56. 430 pokev+21,3
  57. 452 print"[159]";
  58. 460 fori=1to10
  59. 470 sysml+30,x1(i),x2(i),y1(i),y2(i),255,5+16
  60. 480 sysml+12,x1(i)+9-len(g$(i))/2,y1(i)+1,g$(i)
  61. 490 next
  62. 500 print"";
  63. 510 fori=0to2:sysml+30,m1(i),m2(i),m3(i),m4(i),255,14+16
  64. 520 sysml+12,m1(i)+2,m3(i)+1,e$(i)
  65. 530 next
  66. 532 x=12:y=12
  67. 534 sysml+21,x,y
  68. 540 sysml+9:sysml+60,ky$
  69. 542 if(l2%=0)and(i%=0)then540
  70. 544 p=cr%:ifpthen560
  71. 550 if(i%>0)and(i%<5)thengosub140:goto534
  72. 552 goto540
  73. 560 sysml+39,160
  74. 566 ifp=11then800
  75. 568 ifp=12then700
  76. 570 ifp=13then950
  77. 580 sysml+36,p,255,1
  78. 582 pokev+21,0
  79. 590 sys57812fg$(p),dv,0:poke780,0:poke781,0:poke782,48:sys65493
  80. 595 md=peek(48*256)
  81. 600 poke251,48:poke252,96:poke253,92:sys51456:poke53280,bd%(p):sys51459
  82. 610 sysml+9
  83. 612 geta$:ifa$="p"thengosub3000:goto640
  84. 620 ifl2%=0then610
  85. 630 sys51459
  86. 640 sysml+42,160:pokev+21,3
  87. 650 goto540
  88. 700 pokev+21,0:ifhthensysml+42,168:goto750
  89. 702 h=1
  90. 710 sysml+30,1,38,2,19,255,5+16:print"[129]";
  91. 712 sysml+12,2,3,"    [192][178][192][178][192][178][192][178][192][178][192][178][192][178][192] [176][192][174][174]  [174][192][174][174] [176][176][174][176][174]
  92. 714 [158]ml[170]12,2,4,"(NULL)left$val (NULL)@(NULL)@atn@str$@(NULL)@(NULL)@atn@(NULL)wait -tan<(NULL)  -tan<(NULL) (NULL)(NULL)/exp(NULL)
  93. 716 sysml+12,2,5,"    [192][177][192][177][192][177][192][177][192][177][192][177][192][177][192] [189] [173][173][192][189][189][192][189][173][192][189][189]  [173]
  94. 720 [158]ml[170]12,2,7,"cont    (NULL)se keyboard, mouse in (NULL)ort #1
  95. 722 sysml+12,2,8,"or joystick in [208]ort #2 to move the
  96. 724 [158]ml[170]12,2,9,"arrow. lenlick or (NULL)(NULL)atnlenvalcont on a green
  97. 726 sysml+12,2,10,"box to see the picture. [215]hile it's
  98. 728 [158]ml[170]12,2,11,"showing, press (NULL)cont to go to the list(NULL)(NULL)right$(NULL)(NULL)cont"
  99. 729 [158]ml[170]12,2,12,"sequence. ascollow the prompts.
  100. 730 sysml+12,2,14,"    [195]lick on [155][217][197][193][210][211] 3-5[154] to see a
  101. 732 [158]ml[170]12,3,15,"slideshow of the ten pictures.
  102. 734 sysml+12,3,16,"[195]lick or [211][208][193][195][197][154] to go to the next
  103. 736 [158]ml[170]12,3,17,"picture; press (NULL) to stop the show.
  104. 740 sysml+39,168
  105. 750 sysml+9
  106. 760 ifl2%=0then750
  107. 770 sysml+42,160:pokev+21,3
  108. 780 goto540
  109. 799 goto799
  110. 800 fori=1to10
  111. 810 sysml+36,i,255,1
  112. 820 pokev+21,0
  113. 830 sys57812fg$(i),dv,0:poke780,0:poke781,0:poke782,48:sys65493
  114. 835 md=peek(48*256)
  115. 840 tq=ti
  116. 850 poke251,48:poke252,96:poke253,92:sys51456:poke53280,bd%(i):sys51459
  117. 860 sysml+9:geta$
  118. 862 ifa$="q"theni=12:goto880
  119. 870 ifl2%=0andti<tq+1000then860
  120. 880 sys51459
  121. 890 sysml+42,160:pokev+21,3
  122. 892 next
  123. 900 goto540
  124. 950 sysml+12,30,22,"[195][207][206][198][201][210][205]"
  125. 956 poke198,0:x=30:y=22:pokev+21,3
  126. 958 sysml+21,x,y
  127. 960 sysml+9:sysml+60,ky$
  128. 964 ifi%>0andi%<5thengosub140:goto958
  129. 970 ifcr%=13thensysml+3:pokev+21,0:goto40000
  130. 972 ifl2%=0then960
  131. 980 sysml+42,160
  132. 990 goto540
  133. 3000 sys51459:sysml+42,160
  134. 3004 print"";
  135. 3006 fori=0to2:sysml+30,m1(i),m2(i),m3(i),m4(i),255,5+16
  136. 3008 sysml+12,m1(i)+2,m3(i)+1,e1$(i)
  137. 3010 next
  138. 3016 poke198,0:x=30:y=22:pokev+21,3
  139. 3018 sysml+21,x,y
  140. 3020 sysml+9:sysml+60,ky$
  141. 3032 ifcr%=11thena1=1:tb=80:goto3250
  142. 3034 ifcr%=12thena1=2:goto3080
  143. 3036 ifcr%=13thenreturn
  144. 3040 ifi%>0andi%<5thengosub140:goto3018
  145. 3042 goto3020
  146. 3080 x=8:y=7:sysml+30,6,33,y,y+10,255,1+16
  147. 3100 sysml+12,x,y+1,"[159]   [196][197][206][211][201][212][217]      [215][201][196][212][200]
  148. 3110 [158]ml[170]12,x,y[170]3,"1cont  (NULL)ingle       (NULL)ide
  149. 3120 sysml+12,x,y+4,"2[154]  [195][210][212]          [206]ormal
  150. 3130 [158]ml[170]12,x,y[170]5,"3cont  str$ouble       (NULL)arrow
  151. 3140 sysml+12,x,y+6,"4[154]  [196]ouble       [215]ide
  152. 3150 [158]ml[170]12,x,y[170]7,"5cont  (NULL)uad         (NULL)arrow
  153. 3160 sysml+12,x,y+8,"6[154]  [209]uad         [206]ormal
  154. 3166 [151]198,0:x[178]17:y[178]10:[151]v[170]21,3
  155. 3168 [158]ml[170]21,x,y
  156. 3170 [158]ml[170]9:[158]ml[170]60,ky$
  157. 3174 [139]l2%[167][139]cy%[177]9[175]cy%[179]16[175]cx%[177]5[175]cx%[179]35[167]a2[178]cy%[171]9:[137]3190
  158. 3176 [139]cr%[178]13[167][142]
  159. 3178 [139]i%[177]5[167]a2[178]i%[171]4:[137]3190
  160. 3182 [139]i%[177]0[175]i%[179]5[167][141]140:[137]3168
  161. 3184 [137]3170
  162. 3190 [143]  sysml+24,120
  163. 3192 [139]a2[178]1[167] ds[178]0:bt[178]1:tb[178]80
  164. 3200 [139]a2[178]2[167] ds[178]4:bt[178]1:tb[178]120
  165. 3210 [139]a2[178]3[167] ds[178]1:bt[178]1:tb[178]160
  166. 3220 [139]a2[178]4[167] ds[178]1:bt[178]2:tb[178]80
  167. 3230 [139]a2[178]5[167] ds[178]3:bt[178]2:tb[178]160
  168. 3240 [139]a2[178]6[167] ds[178]3:bt[178]3:tb[178]120
  169. 3250 x[178]8:y[178]7:[158]ml[170]30,6,33,y,y[170]10,255,1[170]16
  170. 3270 [158]ml[170]12,x[170]6,y[170]1,"list(NULL)atnpeekclose(NULL)(NULL)(NULL)right$(NULL)right$(NULL)(NULL)
  171. 3280 sysml+12,x,y+3,"1[154]  [204]eft
  172. 3290 [158]ml[170]12,x,y[170]4,"2cont        lenenter
  173. 3300 sysml+12,x,y+5,"3[154]                [210]ight
  174. 3310 [139]a2[179][177]3[175]a2[179][177]5[167]3336
  175. 3320 [158]ml[170]12,x,y[170]6,"4cont    (NULL)eft-lenenter
  176. 3330 sysml+12,x,y+7,"5[154]          [210]ight-[195]enter
  177. 3336 x[178]17:y[178]10:[151]v[170]21,3
  178. 3338 [158]ml[170]21,x,y
  179. 3340 [158]ml[170]9:[158]ml[170]60,ky$
  180. 3342 [139]l2%[167][139]cy%[177]9[175]cy%[179]16[175]cx%[177]5[175]cx%[179]35[167]a3[178]cy%[171]9:[137]3360
  181. 3344 [139]cr%[178]13[167][142]
  182. 3346 [139]i%[177]4[175]i%[179]10[167]a3[178]i%[171]4:[137]3360
  183. 3348 [139]i%[177]0[175]i%[179]5[167][141]140:[137]3338
  184. 3349 [137]3340
  185. 3360 [139]a3[178]1[167]tb[178]0:[137]3420
  186. 3370 [139]a3[178]2[167]3420
  187. 3380 [139]a3[178]3[167]tb[178]tb[172]2:[137]3420
  188. 3390 [139]a2[179][177]3[175]a2[179][177]5[167]3340
  189. 3400 [139]a3[178]4[167]tb[178]53:[137]3420
  190. 3410 tb[178]266
  191. 3420 [151]251,48:[151]252,96:[151]253,92:[158]51456
  192. 3430 [151]v[170]21,0:[158]ml[170]3:[158]51459
  193. 3440 [139]a1[178]1[167][158]36864,96,92,tb,md:[137]3460
  194. 3450 [139]a1[178]2[167][158]36867,96,92,tb,ds,bt,bt[172]320,md